inherited dm_usuariogrupo: Tdm_usuariogrupo
  OldCreateOrder = True
  Left = 574
  Top = 278
  inherited sqlConsulta: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'empresa'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select distinct'
      '    u.cod_grupo,'
      '    u.lig_cod_empresa,'
      '    u.descricao as grupo,'
      '    u.data_cad,'
      '    u.data_alteracao,'
      '    u.situacao,'
      '    case'
      '      when u.situacao = '#39'True'#39' then '#39'ATIVO'#39' else '#39'INATIVO'#39
      '    end as situacao_desc,'
      '    c.descricao_multiempresa,'
      '    (select count(a.lig_cod_usuario)'
      '     from usuario_multiempresa a'
      '     where a.lig_cod_grupo = u.cod_grupo and'
      '           a.lig_cod_empresa = u.lig_cod_empresa) as usuarios'
      'from usuario_grupo u'
      
        'left join usuario_multiempresa b on (b.lig_cod_grupo = u.cod_gru' +
        'po)'
      'left join empresa c on (c.cod_empresa = u.lig_cod_empresa)'
      'where u.lig_cod_empresa = :empresa')
  end
  inherited cdsConsulta: TClientDataSet
    object cdsConsultaCOD_GRUPO: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_GRUPO'
      Required = True
    end
    object cdsConsultaLIG_COD_EMPRESA: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_EMPRESA'
      Required = True
    end
    object cdsConsultaGRUPO: TStringField
      Alignment = taCenter
      FieldName = 'GRUPO'
      Size = 100
    end
    object cdsConsultaDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object cdsConsultaDATA_ALTERACAO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsConsultaDESCRICAO_MULTIEMPRESA: TStringField
      FieldName = 'DESCRICAO_MULTIEMPRESA'
      Size = 50
    end
    object cdsConsultaUSUARIOS: TIntegerField
      Alignment = taCenter
      FieldName = 'USUARIOS'
    end
    object cdsConsultaSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 5
    end
    object cdsConsultaSITUACAO_DESC: TStringField
      Alignment = taCenter
      FieldName = 'SITUACAO_DESC'
      Required = True
      FixedChar = True
      Size = 7
    end
  end
  inherited qryPKChave: TSQLQuery
    SQL.Strings = (
      'SELECT GEN_ID(gen_usuario_grupo,1)'
      'FROM RDB$DATABASE')
  end
  inherited cdsRegistro: TClientDataSet
    object cdsRegistroCOD_GRUPO: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_GRUPO'
      Required = True
    end
    object cdsRegistroLIG_COD_EMPRESA: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_EMPRESA'
      Required = True
    end
    object cdsRegistroDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 100
    end
    object cdsRegistroDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object cdsRegistroDATA_ALTERACAO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsRegistroSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 5
    end
  end
  inherited sqlRegistro: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'codigo'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '    u.COD_GRUPO,'
      '    u.LIG_COD_EMPRESA,'
      '    u.DESCRICAO,'
      '    u.DATA_CAD,'
      '    u.DATA_ALTERACAO,'
      '    u.SITUACAO'
      'from USUARIO_GRUPO u'
      'where u.cod_grupo = :codigo')
  end
end
